perm filename BTRPT[MUS,LCS] blob sn#030343 filedate 1974-01-08 generic text, type T, neo UTF8
16900	ARRAY F10,F11,F12(512);BIGBIT←1;P8←F5;SYNTH(F5);1 1 2 1 999;        
17000	 SYNTH(F3);1 1 999;                                                         
17100	 COMPILE;INSTRUMENT TRPT; OSCIL(P4,MAG/P2,P5);                              
17200	 INTRP(P6*P3*MAG,P7*P3*MAG,P5); COSCIL(U2,P3*MAG,F3);
17300	 COSCIL(U1,P3*MAG+U3,F3); OUTA←OUTA+U4;END;
17400	 FINISH;SYNTH(F2);99 .5 1 0 0
17500	 .25,1,180,101.5                                                            
17600	 .25,1,180,101.5                                                            
17700	 .25,1,180,101.5                                                            
17800	 .25,1,180,101.5                                                            
17900	 .25,1,180,101.5                                                            
18000	 .25,1,180,101.5,999                                                        
18200	SEG(F10);0 0 1 20  1 90 .5 100;SEG(F11);.5 0 1 10 1 90 .5 100;
18300	SEG(F12);.5 0 1 10 1 92 0 100;